Option Explicit
Sub E_Sample014()
   'ո E_Data01u@
    Dim myRng As Range
    Set myRng = Range("A1").CurrentRegion			'ӷd
    With myRng
        'w
        .AutoFilter Field:=3, Criteria1:="=s*"		'Wr
        .AutoFilter Field:=6, Criteria1:=">=50"		'z
    End With
    Set myRng = Nothing					'
End Sub

